<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
' 版权所有（C）2018 viviworld
' 本程序为自由软件，在自由软件联盟发布的GNU通用公共许可协议的约束下，你可以对其进行再发布及修改。协议版本为第三版或（随你）更新的版本。
' 我们希望发布的这款程序有用，但不保证，甚至不保证它有经济价值和适合特定用途。详情参见GNU通用公共许可协议。
' 你理当已收到一份GNU通用公共许可协议的副本，如果没有，请查阅<http://www.gnu.org/licenses/>

' QQ: 548841861 （木鱼）
' Email： 365zph@gmail.com
' 项目地址：https://gitee.com/banrenma/RefineCMS
' 协议地址： https://gitee.com/banrenma/RefineCMS/blob/master/LICENSE
' '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

%>
<% If Not DIRECT_VISIT Then Response.Write "No direct script access allowed" : Response.End%>
<%
Sub rf_mod_tag_import
    Dim tag, tagName
    Set tag = new cls_Tag
    If Request.ServerVariables("REQUEST_METHOD") = "POST" Then
        tagName = Request.Form("tag_name")
        tagName = rfReplace(tagName, "{{", "")
        tagName = rfReplace(tagName, "}}", "")
        tagName = rfReplace(tagName, "|Pager", "")
        tagName = Trim(tagName)
        If Not rfIsEmpty(tagName) Then
            tag.init_by_tag_name tagName
            If tag.sTagName = "" Then
                rfShowError "tag/import.asp", T("rf_lang_cannot_find_the_item")
            Else
                Dim module
                module = rfTagType2Module(tag.iTagType)
                If module = False Then
                    rfShowError "tag/import.asp", T("rf_lang_presentation_pretype_unknow") & ": " & tag.sTagName
                Else
                    Response.Redirect("?" & QP("rf_action") & "=backend&module="&module&"&tag_name=" & tag.sTagName)
                End If
            End If
        Else
            rfShowError "tag/import.asp", T("rf_lang_tag_tagtext_parse_error") & ": " & tagName
        End If
    End If
    Set tag = Nothing
End Sub
%>